home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / extraurb / mi076.dir / 00038_Script_38 < prev    next >
Text File  |  1983-01-30  |  1KB  |  38 lines
  1. on ATT_HILITE dacast, acast, deltaspr, deltacast, nohiuno, nohidue
  2.   global men,attore
  3.   if objectP(men) then exit
  4.   if objectP(attore) then exit  
  5.   repeat while the mousecast >=dacast and the mousecast <= acast
  6.     set miohilite = the mousecast
  7.     if miohilite >=dacast and miohilite <= acast then
  8.       repeat with mm = dacast to acast
  9.         set the castnum of sprite (mm-deltaspr) to mm
  10.         --        if not voidp (deltascritta) then
  11.         --          set the visible of sprite (mm-deltascritta) to false
  12.         --        end if
  13.         
  14.       end repeat
  15.       set the castnum of sprite (miohilite-deltaspr) to (miohilite+deltacast)
  16.       --      if not voidp (deltascritta) then
  17.       --        set the visible of sprite (miohilite-deltascritta) to true
  18.       --      end if
  19.       
  20.       updatestage
  21.     end if
  22.   end repeat
  23.   
  24.   
  25.   
  26.   if the mousecast = nohiuno or  the mousecast = nohidue then
  27.     
  28.     repeat with mm = dacast to acast
  29.       set the castnum of sprite (mm-deltaspr) to mm
  30.       
  31.       --      if not voidp (deltascritta) then
  32.       --        set the visible of sprite (mm-deltascritta) to false
  33.       --      end if
  34.       
  35.     end repeat  
  36.   end if
  37.   
  38. end